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CYTRFG_RS Coat, Convert Poundes Floating to Quadword 
6/ ; File: COBCVTRFQ 


j seaeneceneeeeeeeerseeeeeenennsntenennnnnneetennnenstieeeentsseeeeseesseeess 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE } FURNISHED UNDER A LICENSE AND MAY BE USED AND od i 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Lett te OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eppokarion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RARRARAAAAAAELALELLLALE SALE SELES ELE SEER ERE S ERR SERRE EERE REE ES EERE REO OY 


; FACILITY: COBOL SUPPORT 
¥ ABSTRACT: 


This module contains the routine that converts floating 
numbers to quadword with rounding. 


VERSION: 1 
HISTORY: 


AUTHOR : 


Marty Jack, 14-Mar-1979 


MODIFIED BY: 


NAMES OONAUES WN $0 OONAULS WN OOONOUS wr 
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13 HISTORY ; Detailed Current Edit History 6-SEP-1984 10:43:49 [CCOBRTL.SRCJCOBCVTRFQ.MAR;1 (2) 

33 $3 -SBTTL HISTORY ; Detailed Current Edit History 

1 

g8 : Edit History for Version 1 of COBCVTRFQ 

000 4 } 1-001 = Original. MLU 14-Mar-1979 

000 5 ; 1-002 - Correct problem with high order longword. MLJ se per-t979 

000 2$ ; 1-003 - Correct round toward zero problem. PDG 1 ‘in-1979 

0000 57 ; 1-004 = Make external references explicit. RKR 17-.. 22 

0000 58 ; 1-005 - Change all re grences to FORSCNV_OUT_E to COBSCNVOUT 

0000 59 ; RKR 27-SEPT-7 

0600 60 ; 1-006 - Cosmetic changes. RKR 18-OCT-79 
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| 9886 DECLARATIONS . 6-SEP=-1984 3343 —— a 

g88 8 . SSTTA DECLARATIONS 

35 

0 65 : INCLUDE FILES: 

0000 96 ; 

000 6 SOSCDEF 

000 68 

000 8 

88 9 ; EXTERNAL SYMBOLS: 

0000 7 -DSABL GBL ; Prevent undeclared symbols from bein 
g88 73 3 automatically global. ’ 
0000 75 -EXTRN COBSCNVOUT : E-format conversion 

0000 76 e-EXTRN LIBSSTOP 3; Error halt 

0000 77 -EXTRN OTSS_FATINTERR ; Fatal internal error code 

0000 78 ; 

0000 79 

0000 80 ; 

0000 81 ; MACROS: 

0000 Hf 3 NONE 

0000 83 ; 

0000 84 

0000 85 ; 

0000 86 ; PSECT DECLARATIONS: 

00000000 87 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 

0000 88 

0000 89 ; 
0000 90 ; EQUATED SYMBOLS: 
0000 91 ; NONE 
0000 3 3 
0000 9 
0000 94 ; 
0000 95 ; OWN STORAGE: 
0000 96 ; 
0000 97 3+ . 
0000 98 ; The fol Loying constant has the value 2**32. It is used for scaling 
g88 106 3 the high 32 bits and for compensating for unsigned arithmetic. 

6C 29 67 49 29 04 8* + 4 BIAS: «PACKED 4294967296 
0006 108 : The following constant is 2**32-1. It is subtracted from negative numbers, 
88 8 3; to compensate for DIVP truncating towards zero. 
5C 29 67 49 29 04 0006 108 BIAS_1: .PACKED 4294967295 
0000000A 80 3 BIAS_DIGITS=10 
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1-006 CORSE ERFO RO ° 6-SEP=1984 3; 43:49 (CCOBRTL. SR ReIC OBCVTRFQ.MAR;1 = (4) 
poe 119 -SBTTL COBSCVTRFQ_R8 
Bee 11 p++ 
Soe BF ; FUNCTIONAL DESCRIPTION: 
gzodt Converts a floating number to quadword with rounding. 
000C 117 : CALLING SEQUENCE: 
9006 118; 
80 13 : JSB COBSCVTRFQ_RS (scale.rl.v, src.rf.r, dst.wq.r) 
990¢ 1 ; Arguments are passed in R6, R7, and R8. 
000c (1 é : INPUT PARAMETERS: 
000C 124; 
000C 125; SCALE.rl.v —* power of ten by which the internal 
9000 126; wworeeratarcen of the source must be 
Q000C 127; tiplied to scale the same as the 
9000 128; teternel representation of the dest. 
sit : , : SRC. rf.r The number to be converted 
000C 131 : IMPLICIT INPUTS: 
000C 135 : 
zoßt 3 ALL of the trap bits in the PSL are assumed off. 
000C 135 : OUTPUT PARAMETERS: 
000C 136; 
943 38 DST.wa.r The place to store the converted number 
000C 139 : IMPLICIT OUTPUTS: 
000C 140; 
000C 141 ; NONE 
000C 166 é 
000C 143 ; FUNCTION VALUE: 
9000 144; 
000C 145; 1 = SUCCESS, 0 = FAILURE 
9000 146; 
000C 147 ; SIDE EFFECTS: 
9000 148; 
2000 149; Destroys registers RO through R8. 
0OC 150; 
00C 151 ;-- 
000C 136 
9060 15 
00C 154 —“* A pe 
5E 30 c¢2 000C 155 : Allocate temp space 
6— 67 56 000F 138 ths tao (SP) : Get input number 
1 138 : Make a descriptor for the temporary SHER 
08 AE OF 8} 160 P PUSHAB ek : Address = space reserved 
7E 01 90 001 161 MOVB K_CLASS_S,=-(SP) : Class = static 
7E E 90 0018 166 —* Iun —A T, *=(SP) ; Data type = — string 
7E 6 B0 Hg 197 MOVW -(SP) : Length in byte 
Sif 165 Call COBSCNVOUT. 
O1E 166; 
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-006 COBSCVTRF ORE . — 66-SEP-1984 2 :49 (CCOBRTL.SRCJCOBCVTRFQ.MAR;1 - (4) 
1F OD 1 167 #31 3; Digits in fraction 
04 AE OF 198 PUSHAB 4(SP) ; Output string descriptor 
10 A oF 1 PUSHAB } ie x4: 3; Number to convert 
00000000 ' GF g FB 0026 170 CALLS #5,G*COBSCNVOUT 3; Call conversion routine 
55 E9 8 D 3 BLBC RO,20$ 3; Should never fail 
09 8 178 : Convert the exponent and correct for scale factor. 
6— 02 33 AE O 9 a9 8 175° CVTSP #2,51(SP),#2,(SP) 3; Make peches exponent 
ee — 6 0036 176 CVTPL 3; Make longword exponent 
56 £1 A64 9E 00 4 Vy . MOVAB - {(R6)EROI,R6 3; Correct for fraction size and scale 
003 is ; Convert the fraction to packed. 
12 ‘s 10 AE 90 SO3E 181 — MOVB 16(SP) ,18(SP) : Move sign over *’."’ 
6E 1F 12 AE 1F 09 0044 18¢ CVTISP #31,18(SP) ,#31, (SP) ; Make packed fraction 
10 AE 13 05S 6E IF 56 FB 006A 18 ASHP = R6,#31,(SPS,#5.419,16(SPS ; Scale to temporar 
b828 184 3 (also clears RO 
OD 1D 005 185 BVS 10$ : Branch if won't fit in 19 digits 
68 63 13 36 0054 186 CVTPL) 419, G3), (RB) : Convert to longword 
0058 187 : (also clears RO) 
0B 1D 0058 #£«188 BVS 11$ 3; Can't fit in 32 bits 
68 88 €1 8F 78 OOSA 189 ASHL #-31, (R8)+, (RB) : Spread sign bit 
50 D6 OOSF 190 INCL R 3: Indicate success, RO = 1 
5E 38 CO 0061 #£«2191 108: ADDL2 #56,SP : Delete stack temps 
05 0064 136 RSB 
0065 193; . : 
0065 194 ; Come here if the packed number won't fit in 32 bits. 
8 132 ; Divide by 2**32 to get the high 32 bits of the quadword. 
06 09 Al «=6€9 «40065 «= 197 11S: BLBC 9(R1),13$ : Skip if positive 
61 13 99 AF OA 22 0069 198 SUBP4 #BIAS_DIGITS,BIAS_1,419,(%1) ; Make more negative 
13. 10 AE 13 ~~ 8D AF oA 27 Boer 199 13$: Dive #BIAS-DIGITS.BIAS.#19, 16(SP) ,#19, (SP) : Divide by 2**32 
04 AB 6E § 36 0078 00 CVTPL #19, (SP),4(R8) : Convert and store high bits 
007D 01 r (also clears RO) 
02 1D 007D 8 BVS 12$ : Number too large for a 64-bit integer 
50 D6 OO07F 0 INCL RO : Indicate success, RO = 1 
SE 38 CO eH 04 12$: ADDL2 #56,SP : Delete stack temps 
05 84 8 RSB 3; Return 
Boge 0? > Come here on failure of COBSCNVOUT. This should never happen. 
00000000°8F DD 84 09 20S: PUSHL #OTS$_FATINTERR ; OTS fatal error message 
00000000'GF 01 FB 0098 19 CALLS #1,G*CIBSSTOP ; Signal and don't return 
0092 212 ° END 
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Symbol tabTe 6-SEP-1984 10:4 COBRTL.SR REICOB 
BIAS 0000 . . 8 
BIAS_1 886— 
BIAS_DIGITS 
COBSCNVGUT —58* x 88 
COBSCVTRFQ_R8 0080 00E RG 
DSCSK_CLASS_ = 00000001 
DSCSK_DTYPE OQ00000E 
LIBS$STOP tteeeree =X 99 
OTSS_FATINTERR eeerenee =X 0 
Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL 
SABSS 0000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL 
_COBSCODE 0000009 ( 146.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD 
bee eee CO eae eee wea mecomoe + 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 90:00:00. 06 00:00:01.91 
— processing 117 00:00:00.35 00:00:02.61 

s 1 137 00:00:01.21 00:00:08.24 
— table sort 0 00:00:00.11 00:00:00.11 
Pass 2 51 00:00:00.39 888508 “Ao 
Symbol table output § 00:00:00.02 0:00:00.02 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output 0 b's So ee Sy ee 
Assembler run totals 342 00:00:02.1 00:00:15.1 


The working set Limit was 900 pages. 

9011 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space ot ecetee to hold 138 non-local and 5 Local symbols. 
12 source Lines were read in Pass 1, produci ng 10 object records in Pass 2. 
pages of virtual memory were used to define 7? macros. 


2222 eon 


! Macro Library statistics : 


twrwmmoense one coerce aewe eeecoeoe 


Macro Library name Macros defined 
~$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COBCVTRFQ/0BJ=0BJ$:COBCVTRFQ MSRC$:COBCVTRFQ/UPDATE=(ENHS$: COBCVTRFQ) 
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